home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MISC.SWG / 0029_Device Driver in TP.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  881b  |  51 lines

  1. {
  2. GORDON TACKETT
  3.  
  4. In version 7 of TP/BP you can write a device driver But it is tricky! The
  5. following code is not fully tested but seems to work. After looking at some
  6. disassembly listings I added the patch file section. Use or abuse at your own
  7. risk :-)
  8. }
  9.  
  10. Program TestDriver;
  11.  
  12. Procedure Dev_Strategy; Forward;
  13. Procedure Dev_Int; Forward;
  14.  
  15. Procedure DeviceDriverHeader;
  16. begin
  17.   Inline(
  18.     $FFFF/
  19.     $FFFF/
  20.     $2000/
  21.     $0000/
  22.     $0000/
  23.     $FFFF/$FFFF/$FFFF/$FFFF/0);
  24. End;
  25.  
  26. Procedure Dev_Strategy;
  27. Begin
  28. End;
  29.  
  30. Procedure Dev_Int;
  31. Begin
  32. End;
  33.  
  34. Var
  35.   F : File;
  36.  
  37. Begin
  38.   If ParamCount = 999 Then
  39.     DeviceDriverHeader
  40.   else
  41.   Begin
  42.     {patch driver}
  43.     movemem(devicedriverheader, DeviceDriverHeader + 3, 20);
  44.     Assign(F, ParamStr(0));
  45.     Reset(F, 1);
  46.     BlockWrite(F, DeviceDriverHeader, 20);
  47.     Close(F);
  48.   End;
  49. End.
  50.  
  51.